home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00107_Script_107 < prev    next >
Text File  |  1997-07-29  |  1KB  |  53 lines
  1. on mousedown
  2.   if the clickon = 14 or the clickon = 4 then 
  3.     set the castnum of sprite the clickon to cast "sh_profile dim"
  4.     updatestage
  5.     repeat while the stilldown
  6.     end repeat
  7.   else
  8.     
  9.   end if
  10. end
  11.  
  12. on mouseup
  13.   global sub_open, im_media
  14.   if string(the windowlist) contains "textpop" then forget window "textpop.dir"
  15.   case true of
  16.     (the framelabel contains "im"), (the framelabel contains "iss"), (im_media = 1) :
  17.       if not(the clickon = 14 or the clickon = 4) then 
  18.         set im_media = 0
  19.         leave_iss
  20.       else
  21.         global imp_it,sub_open
  22.         set sub_open = 0
  23.         set imp_it = 0
  24.         set_puppets([24,35,39],false)
  25.         global iss_vid
  26.         set iss_vid = 0
  27.         set im_media to 0
  28.         dopmtop
  29.       end if
  30.     (the framelabel contains "over") :
  31.       set sub_open = 0
  32.       if not(the clickon = 14 or the clickon = 4) then 
  33.         leave_over
  34.       else
  35.         set sub_open = 0
  36.         global prev_frame
  37.         set prev_frame to marker("pmtop")
  38.         leave_over
  39.       end if
  40.     (the framelabel contains "bio") :
  41.       if sub_open then bio_sub_off
  42.       if not(the clickon = 14 or the clickon = 4) then leave_bio
  43.     otherwise
  44.       
  45.   end case
  46.   
  47.   if the framelabel contains "pmw" then set sub_open = 0
  48.   if the framelabel contains "issw" then 
  49.     set sub_open = 0
  50.     puppetsprite 39,false
  51.   end if
  52.   if the clickon = 14 or the clickon = 4 then dopmtop
  53. end if